Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)
Previous Next

RE: How create Reminder with LotusScript

Well, first things first; I don't see any doc.save in your code!

Second, I think you should add a some extra fields to the document. Also, be sure to "computewithform", this will make sure there are no problems with the form before saving it.

I did this before, be sure so assign these values:

Call caldoc.ReplaceItemValue("Form", "Appointment")
Call caldoc.ReplaceItemValue("AppointmentType", "4")
Call caldoc.ReplaceItemValue("CalendarDateTime", datetime)
Call caldoc.ReplaceItemValue("Chair", assignee)
Call caldoc.ReplaceItemValue("EndDate", CDat(datetime.Dateonly))
Call caldoc.ReplaceItemValue("EndDateTime", datetime)
Call caldoc.ReplaceItemValue("EndTime", CDat(datetime.Timeonly))
Call caldoc.ReplaceItemValue("From", assignee)
Call caldoc.ReplaceItemValue("Principal", assignee)
Call caldoc.ReplaceItemValue("StartDate", CDat(datetime.Dateonly))
Call caldoc.ReplaceItemValue("STARTDATETIME", datetime)
Call caldoc.ReplaceItemValue("StartTime", CDat(datetime.Timeonly))

You might also want to set these values:

Call caldoc.ReplaceItemValue("_ViewIcon", 10)
ReDim tempArray(0 To 1)
tempArray(0) = |D|
tempArray(1) = |S|
Call caldoc.ReplaceItemValue("ExcludeFromView", tempArray)
Call caldoc.ReplaceItemValue("SequenceNum", 1)
Call caldoc.ReplaceItemValue("UpdateSeq", 1)
Call caldoc.ReplaceItemValue("$CSVersion", |2|)
Call caldoc.ReplaceItemValue("$SMTPKeepNotesItems", |1|)
ReDim tempArray(0 To 7)
tempArray(0) = |$S:1|
tempArray(1) = |$L:1|
tempArray(2) = |$B:1|
tempArray(3) = |$R:1|
tempArray(4) = |$E:1|
tempArray(5) = |$W:1|
tempArray(6) = |$O:1|
tempArray(7) = |$M:1|
Call caldoc.ReplaceItemValue("$CSWISL", tempArray)
Call caldoc.ReplaceItemValue("WebDateTimeInit", |1|)
Call caldoc.ReplaceItemValue("OrgTable", |C0|)
'Call caldoc.ReplaceItemValue("$Abstract", CStr(dlgdoc.comment_body(0)))
Call caldoc.ReplaceItemValue("$Abstract", "")
Call caldoc.ReplaceItemValue("$HFFlags", |1|)
Call caldoc.ReplaceItemValue("StartTimeZone", |Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=96$ZN=W. Europe|)
Call caldoc.ReplaceItemValue("SchedulerSwitcher", |1|)
Call caldoc.ReplaceItemValue("EndTimeZone", |Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=96$ZN=W. Europe|)

And offcourse all the fields so the alarm actually pops up:

Call caldoc.ReplaceItemValue("$IconSwitcher", |Reminder|)
Call caldoc.ReplaceItemValue("$Alarm", 1)
Call caldoc.ReplaceItemValue("$AlarmMemoOptions", "")
'set to any value you like
Call caldoc.ReplaceItemValue("$AlarmOffset", CInt("-" & "5"))
Call caldoc.ReplaceItemValue("$AlarmUnit", "M")
Call caldoc.ReplaceItemValue("Alarms", "1")
Call caldoc.ReplaceItemValue("HideFromCalendar", "1")
Call caldoc.ComputeWithForm(True,True)
Call caldoc.Save(True,False)


Feedback response number WEBB8KTHD6 created by ~Joan Kinisonobu on 08/17/2011

How create Reminder with LotusScrip... (~Laura Bregerom... 18.Jul.11)
. . RE: How create Reminder with LotusS... (~Joan Kinisonob... 17.Aug.11)




Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS